home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
GRAPHICS
/
IMGLIB95
/
UICONLB.DF_
/
UICONLB.DF
/
UICONLB.txt
Wrap
Text File
|
1996-03-31
|
9KB
|
290 lines
object IconListBoxDlg: TIconListBoxDlg
Left = 56
Top = 44
BorderStyle = bsDialog
Caption = 'Icon DBListbox and Icon DBIconComboBox demo'
ClientHeight = 375
ClientWidth = 467
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 14
object SrcLabel: TLabel
Left = 19
Top = 1
Width = 145
Height = 16
AutoSize = False
Caption = 'Available Items'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
IsControl = True
end
object DstLabel: TLabel
Left = 254
Top = 1
Width = 145
Height = 16
AutoSize = False
Caption = 'Included Items'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
IsControl = True
end
object IncludeBtn: TSpeedButton
Left = 223
Top = 79
Width = 24
Height = 24
Caption = '>'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = IncludeBtnClick
IsControl = True
end
object IncAllBtn: TSpeedButton
Left = 223
Top = 111
Width = 24
Height = 24
Caption = '>>'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = IncAllBtnClick
IsControl = True
end
object ExcludeBtn: TSpeedButton
Left = 223
Top = 143
Width = 24
Height = 24
Caption = '<'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = ExcludeBtnClick
IsControl = True
end
object ExAllBtn: TSpeedButton
Left = 223
Top = 175
Width = 24
Height = 24
Caption = '<<'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = ExcAllBtnClick
IsControl = True
end
object Label1: TLabel
Left = 66
Top = 336
Width = 358
Height = 27
Alignment = taCenter
AutoSize = False
Caption =
'All icons are stored in a database blobfield. When the text in t' +
'he listbox matches the text in the icon database the icon will b' +
'e displayed'
Color = clNavy
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object CancelBtn: TBitBtn
Left = 428
Top = 335
Width = 38
Height = 28
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = CancelBtnClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303F8F80303030303030303030303030303030303FF03030303030303030303
0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
010101F8030303030303030303F8FF030303030303FFF8030303030303030303
030101010101F80303030303030303030303F8FF0303030303F8030303030303
0303030303F901010101F8030303030303030303030303F8FF030303F8030303
0303030303030303F90101010101F8030303030303030303030303F803030303
F8FF030303030303030303F9010101F8010101F803030303030303030303F803
03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
03030303030303030303030303030303030303030303030303F8F8F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object BitBtn2: TBitBtn
Left = 102
Top = 309
Width = 289
Height = 22
Caption = 'Add / Delete Icons to / from the database'#39's blobfield'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn2Click
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object SrcList: TDBIconListBox
Left = 21
Top = 14
Width = 192
Height = 243
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 36
MultiSelect = True
ParentFont = False
Sorted = True
Style = lbOwnerDrawFixed
TabOrder = 2
OnDblClick = IncludeBtnClick
OnDragDrop = SrcListDragDrop
OnDragOver = SrcListDragOver
OnMouseDown = SrcListMouseDown
Table = Table1
BlobField = 'ICONBLOB'
end
object CheckBox1: TCheckBox
Left = 22
Top = 268
Width = 123
Height = 17
Caption = 'Toggle Icons On/Off'
State = cbChecked
TabOrder = 3
OnClick = CheckBox1Click
end
object DBIconComboBox1: TDBIconComboBox
Left = 147
Top = 259
Width = 193
Height = 42
Style = csOwnerDrawFixed
ItemHeight = 36
TabOrder = 4
Table = Table1
BlobField = 'ICONBLOB'
end
object DstList: TDBIconListBox
Left = 256
Top = 14
Width = 192
Height = 243
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 36
MultiSelect = True
ParentFont = False
Sorted = True
Style = lbOwnerDrawFixed
TabOrder = 5
OnDblClick = ExcludeBtnClick
OnDragDrop = DstListDragDrop
OnDragOver = DstListDragOver
OnMouseDown = DstListMouseDown
Table = Table1
BlobField = 'ICONBLOB'
end
object Table1: TTable
DatabaseName = 'd:\borland\ilibsam'
IndexName = 'ICONDESC'
TableName = 'ICONDB.DBF'
Left = 30
Top = 227
end
object DBIconEditor1: TDBIconEditor
Table = Table1
IconBlobFieldName = 'ICONBLOB'
IndexFieldName = 'ICONDESC'
Left = 65
Top = 227
end
end